score <- function(input) {
    if ((input[13]) <= (9.845000267028809)) {
        if ((input[6]) <= (6.959500074386597)) {
            if ((input[7]) <= (96.20000076293945)) {
                var0 <- 25.093162393162395
            } else {
                var0 <- 50.0
            }
        } else {
            var0 <- 38.074999999999996
        }
    } else {
        if ((input[13]) <= (15.074999809265137)) {
            var0 <- 20.518439716312056
        } else {
            var0 <- 14.451282051282046
        }
    }
    if ((input[13]) <= (9.650000095367432)) {
        if ((input[6]) <= (7.437000036239624)) {
            if ((input[8]) <= (1.47284996509552)) {
                var1 <- 50.0
            } else {
                var1 <- 26.7965317919075
            }
        } else {
            var1 <- 44.21176470588236
        }
    } else {
        if ((input[13]) <= (17.980000495910645)) {
            var1 <- 19.645652173913035
        } else {
            var1 <- 12.791919191919195
        }
    }
    return(((var0) + (var1)) * (0.5))
}
